DestroyNetwork Subroutine

public subroutine DestroyNetwork(network)

deallocate space

Arguments

Type IntentOptional Attributes Name
type(ObservationalNetwork), intent(inout) :: network

Source Code

SUBROUTINE DestroyNetwork &
!
(network)

IMPLICIT NONE

!Argument with intent (inout:
TYPE (ObservationalNetwork), INTENT (INOUT) :: network
!------------------------------------end of declarations-----------------------

DEALLOCATE (network % obs)

RETURN
END SUBROUTINE DestroyNetwork